perm filename COMPAR[206,LSP] blob sn#142648 filedate 1975-01-31 generic text, type T, neo UTF8

(DEFPROP COMPFCNS
 (NIL COMPARE PLEVEL COMP2)
VALUE)

(DEFPROP COMPARE
 (LAMBDA(L)
  (PROG	(A B)
	(SETQ A (QUOTE (NIL)))
	(SETQ B (QUOTE (NIL)))
	(EVAL (LIST (QUOTE INPUT) (QUOTE F1) (CAR L)))
	(EVAL (CONS (QUOTE INPUT) (CONS (QUOTE F2) (CDR L))))
   L1	(COND ((CONSP A) (INC (QUOTE F1) NIL) (SETQ A (ERRSET (READ) NIL))))
	(COND ((CONSP B) (INC (QUOTE F2) NIL) (SETQ B (ERRSET (READ) NIL))))
	(TERPRI)
	(TERPRI)
	(TERPRI)
	(COND ((AND (ATOM A) (ATOM B)) (RETURN (CONS A B)))
	      ((EQUAL A B) (PRINT (QUOTE *****_SAME_*****)) (PRINTLEV A PLEVEL))
	      (T (PRINT (QUOTE ****__FIRST__****))
		 (PRINTLEV A PLEVEL)
		 (TERPRI)
		 (PRINT (QUOTE ****__SECOND__****))
		 (PRINTLEV B PLEVEL)))
	(GO L1)))
FEXPR)

(DEFPROP PLEVEL
 (NIL . 2)
VALUE)

(DEFPROP COMP2
 (LAMBDA(L)
  (PROG	(A B)
	(SETQ A (QUOTE (NIL)))
	(SETQ B (QUOTE (NIL)))
	(EVAL (LIST (QUOTE INPUT) (QUOTE F1) (CAR L)))
	(EVAL (CONS (QUOTE INPUT) (CONS (QUOTE F2) (CDR L))))
	(INC (QUOTE F1) NIL)
	(READ)
   L1	(COND ((CONSP A) (INC (QUOTE F1) NIL) (SETQ A (ERRSET (READ) NIL))))
	(COND ((CONSP B) (INC (QUOTE F2) NIL) (SETQ B (ERRSET (READ) NIL))))
	(TERPRI)
	(TERPRI)
	(TERPRI)
	(COND ((AND (ATOM A) (ATOM B)) (RETURN (CONS A B)))
	      ((EQUAL A B) (PRINT (QUOTE *****_SAME_*****)) (PRINTLEV A PLEVEL))
	      (T (PRINT (QUOTE ****__FIRST__****))
		 (PRINTLEV A PLEVEL)
		 (TERPRI)
		 (PRINT (QUOTE ****__SECOND__****))
		 (PRINTLEV B PLEVEL)))
	(GO L1)))
FEXPR)